downloadFile "http://pydictionary.googlecode.com", "c:\temp", "mboard.htm"

msgbox "Ok!"
public function downloadFile(docUrl, saveDir, saveName)

    Const adTypeBinary = 1
    Const adSaveCreateOverWrite = 2
    Set xmlHttpDoc = CreateObject("Microsoft.XMLHTTP")
    '' Set xmlHttpDoc = CreateObject("MSXML2.XMLHTTP")
    xmlHttpDoc.Open "GET", docUrl, False
    xmlHttpDoc.send
    'DataBin = xmlHttpDoc.responseBody
    
    Dim AdoDb
    Set AdoDb = CreateObject("ADODB.Stream")
    
    AdoDb.Type = adTypeBinary
    AdoDb.Open
'    AdoDb.Write DataBin
    AdoDb.Write xmlHttpDoc.responseBody
    AdoDb.SaveToFile saveDir & "\" & Replace(saveName,"%20"," "), adSaveCreateOverWrite
    
    Set AdoDb = Nothing
    Set xmlHttpDoc = Nothing


end function